home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / HAROSP.M3 < prev    next >
Text File  |  1996-04-01  |  4KB  |  153 lines
  1. name Hartford VMC980
  2.  
  3. O 4
  4. % 00
  5. L >4
  6. N 4
  7. G 2
  8. g 2 G
  9. X ->3.>4
  10. Y ->3.>4
  11. Z ->3.>4
  12. I ->3.>4
  13. J ->3.>4
  14. Q ->3.>4
  15. R ->3.>4
  16. P >4
  17. F >4.1
  18. K ->3.>4
  19. H >2
  20. D >2
  21. T >2
  22. M >2
  23. S >4
  24. / 00
  25. ( 00
  26. ) 00
  27. d >3.>4
  28. e >3.>4
  29. f >3.>4
  30. q 00
  31. w 00
  32.  
  33. ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85  # List of g codes that are modal    
  34.  
  35. Sequence#s N 1 1 1                    # Char, freq, incr & start          
  36. First#? N                             # Y or N  'Output 1st sequence no.  
  37. Last#? N                              # Y or N  'Output last sequence no. 
  38.  
  39. HCode X                               # X or X U  'Horizontal char.       
  40. VCode Y                               # Y or Y V  'Vertical char.         
  41. Dcode Z                               # Depth char.                       
  42. FeedCode F                            # Feed rate char.                   
  43.  
  44. Comment ( )                           # Begin End comment char.           
  45.  
  46. Spindle 03 04 05                      # Cw, ccw & stop m codes            
  47. Coolant 08 09 07                      # On, Off & Mist m codes            
  48. DComp 41 42 40                        # Left, Right & Cancel m codes      
  49. LComp 43 49                           # On & Off codes                    
  50.  
  51. CtrIncremental? Y                     # Y or N  'Inc or abs I & J         
  52. ByQuadrants? N                        # Y or N  'Break arcs at quadrants  
  53.  
  54. CtrCode I J                           # I J or R or I J K L               
  55. Helical? Y
  56.  
  57. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  58.  
  59. Feed G01                            # Linear move                       
  60. Rapid G00                           # Rapid positioning word            
  61. Cw G02                              # Circular move clockwise           
  62. Ccw G03                             # Circular move counter clockwise   
  63.  
  64. Inch/MM 20 21                         # Inch & Metric g codes             
  65.  
  66. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  67.  
  68. Drill                                 # Drilling canned/manual cycle      
  69. G98 G81 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  70. end cancel
  71.  
  72. Peck                                  # Pecking canned/manual cycle       
  73. G98 G83 X[H] Y[V] Z[D] Q[VBite] R[Vclear] F[FRate]
  74. end cancel
  75.  
  76. Tap                                   # Tapping canned/manual cycle       
  77. G98 G84 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  78. end cancel
  79.  
  80. LTap                                  # Left handed tapping cycle         
  81. G98 G74 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  82. end cancel
  83.  
  84. Ream                                  # Reaming canned/manual cycle       
  85. G98 G85 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  86. end cancel
  87.  
  88. Bore                                  # Boring canned/manual cycle        
  89. G98 G86 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  90. end cancel
  91.  
  92. Back                                  # Back boring canned/manual cycle   
  93. G98 G73 X[H] Y[V] Z[D] Q[VBite] R[Vclear] F[FRate]
  94. end cancel
  95.  
  96. Cancel                                # Cancel a canned/manual cycle      
  97. G80
  98. end
  99.  
  100. StartCode                             # Start of the program              
  101. %0
  102. O[Program#]
  103. End
  104.  
  105. 1stToolChange                         # First tool change                 
  106. G00 g91 G17 G[Unitmode] G40 G80 G98
  107. g91 G28 Z0
  108. g91 G28 X0 Y0
  109. g91 G30 Z0.0
  110. T[Tool] M06 (0 d[ToolRad] e[ToolDiam] f[corner] w0
  111. G00 G90 G40 G80 G[Work] X[H] Y[V]
  112. G43 Z[D] H[Lcomp] M[Direct] S[Speed]
  113. M[Cool]
  114. End
  115.  
  116. Infeed                                # Enable cutter comp                
  117. G[Side] X[H] Y[V] D[DComp]
  118. F[FRate]
  119. end
  120.  
  121. Outfeed                               # Disable cutter comp               
  122. G1 G40 X[H] Y[V]
  123. Z[D]
  124. end
  125.  
  126. ToolChange                            # Secondary tool changes            
  127. M[CoolantOff]
  128. M05
  129. g91 G30 Z0
  130. G49
  131. M01
  132. T[Tool] M06 (0 d[ToolRad] e[ToolDiam] f[corner] w0
  133. G90 S[Speed] M[Direct]
  134. G00 G40 G80 G[Work] X[H] Y[V]
  135. G43 Z[D] H[Lcomp]
  136. M[Cool]
  137. End
  138.  
  139. EndCode                               # End of the program                
  140. G80 M[CoolantOff]
  141. g91 G28 G49 Z0 M05
  142. g91 G28 X0 Y0
  143. G90
  144. M30
  145. %0
  146. End
  147.  
  148. replace "d" with "ToolRadius"
  149. replace "e" with "ToolDiam"
  150. replace "f" with "ToolCorner"
  151. replace "q" with "("
  152. replace "w" with ")"
  153.